#!/usr/bin/env perl
## Copyright (C) 2015 by Lo

use utf8;
use strict;

open my $in, '<', $ARGV[0] or die "Can not open file $ARGV[0]\n";
open my $out,'>', $ARGV[0].'.out' or die "Can not open file $ARGV[0].out\n";	 
 

while(<$in>){
	s/Fred/Larry/ig;
	print $out $_;
}
